home *** CD-ROM | disk | FTP | other *** search
/ World of Sound / World of Sound.iso / utils / miditools / kawaied / src / swap.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-10-26  |  3.0 KB  |  135 lines
  1. #include <exec/memory.h>
  2.  
  3. #include "inc.h"
  4. #include "defs.h"
  5. #include "req_manx_5.c"
  6. #include "zz_pointer.h"
  7.  
  8.  
  9. void ExternToIntern(void);
  10. void InternToExtern(void);
  11. void SwapInternExtern(void);
  12. int TestCard(void);
  13.  
  14. /**********************************************************************************/
  15. /***                                                                            ***/
  16. /**********************************************************************************/
  17.  
  18. void ExternToIntern(void)
  19. {
  20.     int chn;
  21.  
  22.     chn=WaitForK1();
  23.     if (chn == -1)
  24.     {
  25.         MyReq("Error: K1 not present",NULL," Ok ");
  26.         goto Ende;
  27.     }
  28.  
  29.     if (!TestCard()) goto Ende;
  30.     MyReq("Not implemented, yet",NULL,"Resume");
  31.  
  32.     Ende: CLEAR_POINTER(win);
  33. }
  34.  
  35.     
  36. /**********************************************************************************/
  37. /***                                                                            ***/
  38. /**********************************************************************************/
  39.  
  40. void InternToExtern(void)
  41. {
  42.     int chn;
  43.  
  44.     chn=WaitForK1();
  45.     if (chn == -1)
  46.     {
  47.         MyReq("Error: K1 not present",NULL," Ok ");
  48.         goto Ende;
  49.     }
  50.  
  51.     if (!TestCard()) goto Ende;
  52.     MyReq("Not implemented, yet",NULL,"Resume");
  53.  
  54.     Ende: CLEAR_POINTER(win);
  55. }
  56.  
  57. /**********************************************************************************/
  58. /***                                                                            ***/
  59. /**********************************************************************************/
  60.  
  61. void SwapInternExtern(void)
  62. {
  63.     int chn;
  64.  
  65.     chn=WaitForK1();
  66.     if (chn == -1)
  67.     {
  68.         MyReq("Error: K1 not present",NULL," Ok ");
  69.         goto Ende;
  70.     }
  71.  
  72.     if (!TestCard()) goto Ende;
  73.     MyReq("Not implemented, yet",NULL,"Resume");
  74.  
  75.     Ende: CLEAR_POINTER(win);
  76. }
  77.  
  78. /**********************************************************************************/
  79. /***                                                                            ***/
  80. /**********************************************************************************/
  81.  
  82. int TestCard(void)
  83. {
  84.     int i,fo;
  85.     unsigned char buf[97];
  86.     char str[100];
  87.     FILE *fp,*fopen();
  88.  
  89.     fo=creat("ram:k1-bank",0666);
  90.     if (fo != -1)
  91.     {
  92.         buf[0]=MS_SYSEX; buf[1]=0x40; buf[2]=MASTERCHANNEL; buf[3]=0x20; 
  93.         buf[4]=0x00; buf[5]=0x03; buf[6]=0x00; buf[7]=1;
  94.  
  95.         for (i=0;i<=87;i++)    buf[8+i]=0x22;    /* Singlessound an externe Card schicken */
  96.         buf[96]=MS_EOX;                          /* und Reaktion abwarten */
  97.         PutMidiMsg(source,buf);
  98.         Delay(3);
  99.  
  100.         WaitPort(dest->DestPort);
  101.         if (packet = GetMidiPacket(dest)) 
  102.         {
  103.             if (write(fo,packet->MidiMsg,packet->Length) != packet->Length); 
  104.             FreeMidiPacket(packet);
  105.         }
  106.         close(fo);
  107.     }
  108.  
  109.     fp=fopen("ram:k1-bank","r");
  110.     for (i=0;i<=7;i++) str[i]=fgetc(fp);        /* Error-Code einlesen*/
  111.     fclose(fp);
  112.     DeleteFile("ram:k1-bank");
  113.     
  114.     if (str[3]==0x43)
  115.     {
  116.         MyReq("Sorry, there is no external card",NULL,"Go on");
  117.         return(FALSE);
  118.     }
  119.  
  120.     if (str[3]==0x42)
  121.     {
  122.         MyReq("Sorry, memory is write protected",NULL,"Go on");
  123.         return(FALSE);
  124.     }
  125.  
  126.     if (str[3]==0x41)
  127.     {
  128.         MyReq("Sorry, write error on card",NULL,"Go on");
  129.         return(FALSE);
  130.     }
  131.  
  132.     return(TRUE);
  133. }
  134.  
  135.